home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Begin VB.Form PrepareToTest
- Caption = "Prepare to test"
- ClientHeight = 912
- ClientLeft = 9168
- ClientTop = 3588
- ClientWidth = 2268
- LinkTopic = "Form1"
- MaxButton = 0 'False
- PaletteMode = 1 'UseZOrder
- ScaleHeight = 912
- ScaleWidth = 2268
- Begin VB.CommandButton cmdPrepareToTest
- Caption = "Prepare to test"
- Height = 375
- Left = 240
- TabIndex = 0
- Top = 240
- Width = 1815
- End
- Attribute VB_Name = "PrepareToTest"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Private Sub cmdPrepareToTest_Click()
- Dim NSApp As Object
- Dim NSBB As Object
-
- Set NSApp = CreateObject("NeuroSolutions.Application")
- Set NSBB = NSApp.activeBreadboard
- NSBB.send "controlBackprop. freeALL ( )"
- NSBB.deleteObject "inputFile"
- NSBB.stampOnAndMove "OLEInput", "inputAxon"
- NSBB.send "oLEInput. setActiveAccessPoint ( ""Pre-Activity"" )"
- NSBB.stampOnAndMove "MatrixViewer", "outputAxon"
- NSBB.send "matrixViewer. setName ( ""trainingCostProbe"" )"
- NSBB.send "trainingCostProbe. setActiveAccessPoint ( ""Activity"" )"
- NSBB.send "trainingCostProbe. openEngineWindow ( )"
- NSBB.send "control. setEpochs ( 1 )"
- NSBB.send "control.setLearning(FALSE)"
- NSBB.send "nextButton. setMacroAction ( 1 )"
- NSBB.send "nextButton. setColor ( 255,0,0 )"
- End
- End Sub
-